home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / zxam20.lha / ZXAM Spectrum / ZXAM_Rexx / Español / SaveROM.zxam < prev    next >
Encoding:
Text File  |  1994-10-16  |  752 b   |  29 lines
  1. /* este script saca la ROM del emulador y la graba como fichero */
  2.     
  3.     /* comprobamos si el emulador está presente */
  4.     address command
  5.     
  6.     if ~show(ports,ZXAM_REXX) then do
  7.         requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
  8.         exit
  9.         end
  10.  
  11.     /* requester de SAVE */
  12.     oldpath=zxamactsavepath()
  13.     oldpattern=zxamactpattern()
  14.     zxampattern('#?')
  15.     nombre=zxamsaverequester('Nombre para el fichero de ROM...')
  16.     zxamsavepath(oldpath)
  17.     zxampattern(oldpattern)
  18.     if nombre='' then exit 0    /* pulsado el CANCEL */
  19.     
  20.     /* abrimos el fichero */
  21.     if ~open('fichero',nombre,'W') then exit 0
  22.     
  23.     /* escribimos los 16k de ROM al fichero */
  24.     dummy=writech('fichero',zxamgetmem(0,16384))
  25.     
  26.     dummy=close('fichero')
  27.     
  28.     exit
  29.